home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 40.zip / BS1 part 40 / SkyFlight+Bouncer.adf / AndysHacklings / Rtype.cheat (.txt) < prev    next >
AmigaBASIC Source Code  |  2018-01-21  |  1KB  |  29 lines
  1.  
  2.  
  3. 10 REM --- (c) CRACKED BY ANDY GRIFO, R-TYPE.CRACK ---
  4. 20 checksum = 0 : total = 141915 : crack = 522808
  5. 30 START = 522752 : FINISH = 522839 : GOSUB 50
  6. 40 GOTO 90                      
  7. 50 FOR n = START TO FINISH STEP 2
  8. 60 READ a$:a = VAL("&h"+a$)
  9. 70 checksum = checksum + a
  10. 80 POKEW n,a:NEXT n:RETURN
  11. 90 PRINT "Your Checksum = ";checksum
  12. 100 IF checksum<>total THEN PRINT "Data error.":END
  13. 110 PRINT "Place R-Type in DRIVE 0.Click On Screen"
  14. 120 PRINT "I will Intercept When You Loose a Life"
  15. 130 PRINT "indicated by The Power Light Going ON or OFF"
  16. 140 INPUT "PRESS RETURN AND THE GAME WILL BOOT",Grifo$
  17. 150 CALL crack
  18.  
  19. 160 DATA 297c,0007,fa0c,0082,4eec,000c,23fc,0007
  20. 170 DATA fa1c,0007,966a,4ef9,0007,9360,21fc,4eb9
  21. 180 DATA 0007,055a,31fc,fa2e,055e,4ef8,00c0,0879
  22. 190 DATA 0001,00bf,e001,4e75,2c78,0004,207c,00fe
  23. 200 DATA 88c0,43f9,0007,f8ba,303c,0145,12d8,51c8
  24. 210 DATA fffc,4ef9,0007,f8d0
  25.  
  26.  
  27.  
  28.  
  29.